﻿Module Module1
  Sub Main()
    Dim i As Integer = 1
    Do
      Console.WriteLine("Riga: " & i)
      i += 1
    Loop Until i > 12
    Console.ReadLine()
  End Sub
End Module

